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0001 C 
608 : Version: *v04-000' 
0004 COR eee eee AAA AERA AERA AEEEAEEEE HEE HAHE TEA eee eee Heeee 
0005 * 
Bone C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Bobs ‘a ALL RIGHTS RESERVED. * 
® 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Bot¢ C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
001 C* COPIES 1HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014  C® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
O15 C+ TRANSFERRED. * 
& ® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sib a CORPORATION. * 
® ® 
0021  C®* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i ¢ s SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0024 C* 5 
0025 Cee R eee ERE AEE AEE AAAS 
0026 
0027 é 
pose ¢ Author Brian Porter Creation Date 20-JUL-1981 
0056 c++ 
i c Functional description: 
Cc 
$038 C This module is used to display error log entries Logged for the 
0034 c 11/7zz IDC. The format of the device specific portion of the record 
0035 c is as follows. 
0036 c 
0037 Cc ¢oeerwmeoce SRO ewe m en wen ree eo wre wee oe 
0038 C ' csr ' 
0039 Cc wer eon ecer sos ee ee eco eomanroe eeecneenee} 
0040 c ‘ bar ' 
0041 c fee or eur essen semen OBO romeo Eee + 
Bog ¢ ' ber ' 
004 Cc or Pee es ee men omnen emer meee = + 
0044 c ' dar ' 
0045 Cc dwresen one amne nor acwae rece orerroceewroscen + 
0046 C : mpr : 
0047 Cc eee cere eee neces ew een er eee eee sae + 
0048 c H eccl ' 
0049 Cc $ewenrernescooeseoece werner on ee eromae $ 
0050 c : ecc2 ' 
0051 c toro r eam m oem weeeee roe ersr weezer een eececae + 
tt) ¢ H data path number 
005 Cc morse retroanronae eer eee mere ere mec ewan + 
Boe c i data path reg (always 0) : 
55 Cc teow sowe screens cc atoereenawoeeree nos ece } 
0056 ¢ : final uba map 
0057 Cc ewer wenn sot em woe erarnocc ae one ae ema + 
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' previous uba map ' 
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Modified by: 


v03-003 SARO217 Sharon A. Reynolds. 28-Mar-1984 
Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 

v03-002 SARO069 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 

v03-001 SAR0046 Sharon A. Reynolds, 9-Jun-1983 
Removed brief/cryptic support. 

v02-008 BP0008 Brian Porter, 23-JAN-1982 
Corrected polarity of ‘plug valid’ for the r80. 

v02-007 BP0007 Brian Porter, 23-NOV-1981 
Minor edit. 

v02-006 BP0006 Brian Porter, 04-NOV-1981 
Corrected ‘DAR* output error. Added ‘device attention’ 
support. 

v02-005 BP000S Brian Porter, 30-SEP-1981 
Corrected random problems. 

v02-004 BP0004 Brian Porter, 29-SEP-1981 
Added "DAR" decoding functionality. 

v02-003 BP0003 Brian Porter, 14-SEP-1981 
Corrected problem in attention logic. Added CSR 
functionality. 

v02-002 BP0002 Brian Porter, 31-AUG-1981 
Corrected call to calc_map. 

v02-001 BP0001 Brian Porter, 24-AUG-1981 


Changed record format to conform to other drivers. 


Subroutine DQDISKS (lun) 


include ‘src$:msghdr.for /nolist' 
include ‘src$:deverr.for /nolist’ 


byte lun 
integer*4 control_status_register 
integer*4 bus_address_register 


i=] 
=] 
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? 
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888 88 OOOO OO. 
FEEESYE 


ASSESS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
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WAWUA 
Manan 


73 integers4 
74 integers4 
75 integer*4 
7 integert4 
7 integere4 
78 integere4 
79 integer*4 
integere4 
0281 integer*4 
8 ¢ integere4 
° Bs equivalence 
5 equivalence 
0286 equivalence 
0287 equivalence 
0288 equivalence 
0289 equivalence 
Bsa0 equivalence 
0291 equivalence 
i944 equivalence 
029 equivalence 
0294 equivalence 
0295 equivalence 
0296 
0297 character*12 
0298 
5944 
0300 character*17 
0301 data 
0302 data 
0303 
0304 character*21 
0305 data 
0306 
0307 character*20 
0308 data 
0309 data 
0310 data 
0311 
Belg character*22 
031 
0314 data 
Det3 data 
$318 character*30 
0318 data 
0319 data 
os data 
03 § character*11 
data 
4 data 
5 data 
03. ° character*19 
328 data 
329 data 


ifesen-1984 90:09:07 


Byte.controt_register 
disk _address_register 
multT_purposé_register 
ecc_position_register 
ecc_pattern_register 
data_path_number 
data_path_register 
final_map_register 
previous_map_register 
vec$l_mapreg 


(emb$l_dv_regsav(9) 
Cemb${“dv-regsav (10) ,preyTous_nap register) 


vicsr(0:0) 

vicsr(0) /*DRIVE READY*'/ 

vecsr (6:7) 

vecsr (6) /* INTERRUPT ENABLE*'/ 
vecsr(7) /*CONTROLLER READY*'/ 
v3csr(10:10) 

v3csr(10) /‘OPERATION INCOMPLETE®'/ 
v4csr (13:15) 

v4csr(13) /*NONEXISTENT MEMORY®'/ 
v4csr(14) /*DRIVE ERROR*'/ 

v4csr(15) /*COMPOSITE ERROR®'/ 
v5csr(22:24) 

v5csr(22) /*R80 SKIP SECTOR ERROR*'/ 
v5csr(23) /*R8O0 SKIP SECTOR ERROR*'/ 
v5csr(24) /* INTERRUPT REQUEST®'/ 
vécsr (26:28) 

vécsr( 9 /*RB0%'/ 

v6csr(27) /*AUTOMATIC SKIP SECTOR INHIBIT*#'/ 
vécsr (28) /*TIMEQUT INHIBIT#'/ 

virl nor (335) 

virlO2_mpr(3) /*BRUSH HOME®'/ 
virlO2_mpr(4) /*HEADS OUT#'/ 
virlO2_mpr(5) /*COVER OPEN®'/ 
v2rl02_mpr (8:15) 

vérlO2_mpr (8) /*DRIVE SELECT ERROR**/ 
verlO2_mpr(9) /*VOLUME CHECK*'/ 


4 
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; 
; 
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878001382 99:95:97 DISKSVMSMASTER: CERF SRCIDODISKS. FOR: 1 s 
data verlO2_mpr(10) /'WRITE GATE ERROR*'/ | 
1 data verlOg-mpr(11) /*SPINDLE ERROR®'/ | 
§ data verlOg_mpr(i2) /*SEEK TIMEOUT®'/ 
data verlOg-mpr(13) /*WRITE LOCK®'/ | 
data verl amr (te) /*HEAD CURRENT ERROR®*'/ 
5 data verlOd-mpr(15) /"WRITE DATE ERROR®'/ | 
character*14 vir80_mpr (8:13) 
data 41r80_mpr (8) /*FAULT#'/ 
9 data vir80_mpr (9) /*PLUG VALID*'/ 
0340 data vir80_mpr(10) /"SEEK ERROR*'/ 
8 1 data vir80_mpr(11) /'ON CYLINDER®'/ 
¢ data vir =nor 19} /*DRIVE READY*'/ 
8 Z data vir80_mpr(15) /*WRITE PROTECT®'/ 
0345 integer*4 compress4 
0 § integer*4 cqnpresse 
8 HM integer*4 field 
0349 character*27 fac .sonnendt2s7? 
0350 data c.command(0) /'NO DRIVE OPERATION®'/ 
8 51 data idc_command(1) /‘WRITE CHECK DATA®'/ 
26 data [dc commends 6? /*GET STATUS®'/ 
035 data idc_command(5) /'SEEK*'/ 
Bee data idc_command(4) /‘READ HEADER*'/ 
0355 data idc_command(5) /‘WRITE DATA®'/ 
0356 data idc_command(6) /'READ DATA®' 
STH 4 data idc_command(7) /‘READ DATA W/O HEADER CHECK*'/ 
384 logical] diagnostic_mode 
O30! integer*4 LibSextzv 
0 ¢ integer*4 data_check_and_opi_bits 
036 integers4 data_late_and_opi_bits 
0364 integers4 sector_count 
0365 integere4 ors status_bits 
0368 integer*4 rl02_statuS_bits 
$368 character*20 virl02 status_bits(0:7) 
0369 data virl02_status_Bbits(0) /*LOAD STATE*'/ 
3 70 data virl02 status _bits(1)  /*SPIN UP#'/ 
71 data virl ~Status_bits(¢) /*BRUSH CYCLE®'/ 
0 Le: data virlO2_status_bits(5) /*LOAD HEADS*'/ 
Oe? data virlO2_status_bits(4) /*SEEK TRACK COUNTING®*'/ 
74 data virl02_status_bits(5) /*SEEK LINEAR MODE*'/ 
75 data vir ld ~Status_bits(g) /*UNLOAD HEADS*'/ 
76 data virl02_status_bits(7) /"SPIN DOWN®'/ 
78 integer*4 device_function 
79 integer*4 device_type 
integere4 sector 
1 integert4 cylinder 
¢ integer*4 tag 
integer*4 head 
5 characterel! vidar(0:1) 
data vidar(0) /*MARKER®'/ 


? 
prec if-sep-1984 995058) UTR KSUMSRASTER: PERE eecapapIsKs.FoR:1°%* 


7 data vidar(1) /*GET STATUS*'/ 
character*6 ugder' :3) 
data vedar (3) /*RESET#'/ 
character*8 v4dar(2:2,0:1) 
data v4dar(2,05 /*REVERSE®'/ 
data v4dar(2,1) /*FORWARD®'/ 
character*18 v6dar(4:4,0:1) 
data védar (4,05 /"SELECT LOWER HEAD®'/ 
data védar(4,1) /"SELECT UPPER HEAD*'/ 
character*15 v7dar (6:6) 
data v7dar (6) /*RETURN-TO-ZERO®*'/ 


call dhead] (lun,'RB730") 
diagnostic_mode = .false. 


if (LibSextzv(25,1,control_status_register) .eq. 1) 
1 diagnostic_mode = .true. 


device_function = LibSextzv (1,3,control_status_register) 
device_type = LibSextzv (26,1,control_status_register) 
call Linchk (lun,2) 


write(lun,5) ‘RB CSR',control_status_register 
5 format(/" ',t8,a,t24,28.8) 


if (.not. diagnostic_mode) then 


PUN SOBVAARUVBOSRIUE ARUN ODD ORR 


call output (lun,control_status_register,vicsr,0,0,0,'0") 
call Linchk (lun,1) 

if (LibSextzv(29,1,control_status_register) .eq. 1) then 
write(lun,10) "R80 WRITE FORMAT FUNCTION" 


10 format(' *,t40,a) 
else 


OnNOW 


idc_function = Lib$Sextzv(1,3,control_status_register) 


write(lun,15) idc_command(idc_ function) 
dc_command(idc_function))>) 


BIEREUS= 
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15 format(’ °,t40,a<compressc (i 
39 endif 
“9 call output (lun,control_status_register,v2csr,6,6,7,'0") 
ry | call Llinchk (lun,1) 
4 


| 
| 
call fretof (Lun) 
| 
| 


sore: igo seo- 1984 19:93 39FDcSumsmasten: Fear. secdpopisKs.rorsiem  ° 

te Hee seeeeD: "DRIVE #* ,LibSextzv(8,2,control_status_register), 

re] 20 fornatt? -t40,a,11.1,a) 

: call output (lun,control_status_register,v3csr,10,10,10,'0') 

° data_check_and_opi_bits = LibSextzv(10,2,control_status_register) 
i "data check_and_opi bits -eq. 2 

S$ 1 data_check_and_opi_bits .eq. 3 

$ 1) then 

58 call Linchk (Lun,1) 

59 endif 


if (data_check_and_opi_bits .eq. 2) then 


write(lun,25) “oan CHECK ERROR’ 

25 format(' °',t40,a 
| 
| 
| 
| 
| 


else if (data_check_and_opi_bits .eq. 3) then 


write(lun,25) ‘HEADER CRC ERROR’ 
endif 


LEAFERVIS 


ERLLLLEL 


data_late_and_opi_bits = lLibSextzv(10,3,control_status_register) 


if ¢ 
1 data_late_and_opi_bits .eq. 4 


.or. 
1 data_late_and_opi_bits .eq. 5 
1) then 


call Linchk (lun,1) 
endif 


SSSAISAEANISSS 


if (data_late_and_opi_bits .eq. 4) then 
write(lun,25) "DATA LATE’ 

else if (data_late_and_opi_bits .eq. 5) then 
or iyat tend) *HEADER NOT FOUND’ 


co 
wr 


w 
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call output (lun,control_status_register,v4csr,13,13,15,'0") 
do 35,i = 16,19 

if (LibSextzv(i,1,control_status_register) .eq. 1) then 
call Linchk (lun,1) 


BSELESSFESLES 


hes a es eh | wt bes DRIVE #°,i-16,'.° 
e a.i 
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30 format ( 
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IER 


endif 
continue 


Pa 
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if (LibSextzv (26,1,control_status_register) .eq. 1) then 
ecc_status_bits = LibSextzv (20,2,control_status_register) 


if (ecc_status_bits .ne. 0) then 
call Linchk (lun,1) 
if (ecc_status_bits .eq. 1) then 


write(lun,40) "DATA ERROR 
format(’ *,t40,a) 


else if (ecc_status_bits .eq. 2) then 
write(lun,40) ‘HARD ERROR’ 

else if (ecc_status_bits .eq. 3) then 
write(lun,40) ‘CORRECTABLE ERROR’ 
endif 


endif 
endif 


388 


Sssssssssssssssss 


nm 


call output (lun,control_status_register,vScsr,22,22,24,'0') 


if (LibSextzv (26,1,control_status_register) .eq. 1) then 


cal} output (Lun,control_status_register,vécsr,26,26,28,'0') 


else 

call Linchk (lun,1) 
write(lun,40) "DIAGNOSTIC MODE’ 
endif 


call Linchk (lun,1) 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


WWW 


write(lun,45) ‘RB Par, -hytodéress_register 


-t8,a,t24,28. 
if (.not. diagnostic_mode) then 
if 


format ( 


' device_funct ion -eq. 1 
: Gov tee. function -eq. 5 
; device_function .eq. 6 


-or. 
device_function .eq. 7 
) then 


SESS SS SSSSS EE 


PAAAAAIA 


S8ss8 


cot) Cote nap (Lun,16,bus_address_register,bus_address_register) 
endif 

call Linchk (Llun,1) 

write(lun,45) ‘RB BCR',byte_control_register 

call Linchk (lun,1) 

write(lun,45) ‘RB DAR',disk_address_register 

if (.not. diagnostic_mode) then 


( 
device_function .eq. 
.or. 
device_function .eq. 


pope jfojololelolejolelolelolejloleloleloleo) 
PUPVIVPVSSVASISIS 
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1 
5 
or. 
device_function .eq. 6 
7 


at St a ss ss ss 
~*~ 


5 
$8 -or, 
B2 device_function .eq. 

5 ) then 
Bene 
33 $4 if (device_type .eq. 0) then 
t4 $4 sector = LibSextzv (0,6,disk_address_register) 
0367 cylinder = LibSextzv (7,9,disk_address_register) 
9288 else if (device_type .eq. 1) then 
329) sector = LibSextzv (0,5,disk_address_register) 
st yi loser = LibSextzv (9,10,disk_address_register) 
0396 call Linchk (Llun,2) 

598 write(Lun,46) sector,cylinder 
0338 46 format(* *,t40, SECTOR” 


R #*,i<compress4 (sector)>,'.'./, 
1 t40,"CYLINDER #°, i<compress4 (cylinder)>,'.") 


else if (device_function .eq. 2) then 
if (device_type .eq. 0) then 
call output (lun,disk_address_register,vidar,0,0,1,'0') 


Seeeeeees 


call output (lun,disk_address_register,v2dar,3,3,3,'0°) 
endif 


else if (device_function .eq. 3) then 


at Be 
Sun-o 


SSS 


if (device_type .eq. 0) then 
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47 
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uw 
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7 
ifosenelg 1 99:88i8) ST ScSumSmasten: eRe. secIpopIsKs.FoR;1°% 

call output (lun,disk_address_register,vidar,0,0,1,'0") 

call output (lun,disk_address_register,v4dar,2,2,2,'2') 

call output (lun,disk_address_register,v2dar,3,3,3,'0') 

call output (lun,disk_address_register,védar,4,4,4,'2") 

cylinder = LibSextzv (7,9,disk_address_register) 

call Linchk (lun,1) 


write(lun,47) cyt tinder 
format(' *,t40,i<compress4 (cylinder)>,'. CYLINDER(S) TO MOVE") 


else if (device_type .eq. 1) then 

tag = LibSextzv (13,3,disk_address_register) 

call Linchk (Llun,1) 

if (tag .eq. 1) then 

cylinder = LibSextzv (0,10,disk_address_register) 


write(lun,48) "CYLINDER #*, cylinder 
format(' °,t40,a,i<compress4 (cylinder)>,'. SELECTED) 


else if (tag .eq. 2) then 

head = LibSextzv (0,4,disk_address_register) 
write(lun,48) ‘HEAD #',head 

else if (tag .eq. 4) then 


ooo ololofofolololelelelolelo) 
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oooo 
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nm 
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oo 
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cot) sutput (Lun,disk_address_register,v7dar,6,6,6,'0') 
en 
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; 
s 
30 
: 
30 
: 
31 
; 
: 
; 
; 
: 


call Linchk (lun,1) 


write(lun,50) "RB _MPR* ,multi_purpose_register 
format(' *,t8,a,t24,28.8) 


if (.not. diagnostic_mode) then 

if (LibSextzv (26,1,control_status_register) .eq. 1) then 
sector_count = LibSextzv (0,5,multi_purpose_register) 
call Linchk (lun,1) 


write(lun,55) "SECTOR COUNT *,sector_count,’.' 
format(’ *,t40,a,i<compress4 (sector-count)>.a) 


ee 
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colt cutput (lun,multi_purpose_register,vir80_mpr,8,8,13,'0") 


rl02_status_bits = LibSextzv (0,3,multi_purpose_register) 
call Linchk (lun,1) 


urivetiyn,60) virl02_status_bits(rl02_status_bits) 
format(* *,t40,a<compressc Tvirl02_status_bifs(rl02_status_bits))>) 


call output (lun,multi_purpose_register,virl02_mpr,3,3,5,'0") 
call Linchk (Llun,1) 
if (LibSextzv (6,1,multi_purpose_register) .eq. 1) then 


write(Lun 65) "LOWER HEAD SELECTED’ 
format(' rt 40,a 


FEREEE SES EAA 
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else 36) 

write(lun,65) "UPPER HEAD SELECTED 35 

endif +e 

call output (lun,multi_purpose_register,v2rl02_mpr,8,8,15,'0") 35: 

endif 35! 

endif 32 

call Linchk (lun,2) 32, 

write (Lun 70) ‘RB ECC1',ecc_position_register, 361 

1 ECCe" ,ecc_pattern_register 36' 

0704 loraatt® *,t8,a,t24,28.8,/,t8,a,t24,28.8) 4 

07 if ( 36: 

09 1 (device_function .eq. 1 36: 

708 1 .or. 36 

3 device_function .eq. 5 <0, 
.or. 

1 device_function .eq. 6 36 
rie 1 .or. HA 
71 1 device_function .eq. 7) ? 
715 1 emb$u_hd_entry ne. 98 ? 
ng as , 

0718 call uba_datapath (lun, iand(data_path_number,'0000007f'x), 7 
ahs 1 data_path_register) 4 
i 1 call calc_map2 (16,bus_address_register,bus_address_register, field) 7 
i § call uba_mapping (lun,field,final_map_register) 

735 if ( | 
7 $ 1 LibSextzv (16,16,emb$l_dv_iosb1) .gt. 512 

7 1 and. 

728 1 field .ne. 0 


ee - 
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if sen 1944 99:95:97 DI SKSVMSMASTER: LER RF .SRCJDQDISKS.FOR;1 te 
i 9 1) then 
731 colt uba_mapping (lun,(field-1) ,.previous_map_register) 
f § endif 
7 call vecmapreg (lun,vec$l_mapreg) 
738 a ee 
f call Linchk (lun,1) 
0739 ee a les 
Bre 75 format(' 
are if (emb$w_hd_entry .ne. 98) then 
ote call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
On call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
toe 4 endif 
O5e8 call orb$l_owner (Lun,emb$l_dv_ownuic) 
ores call ucb$l_char (lun,emb$l_dv_char) 
0788 call ucb$w_sts (lun,emb$w_dv_sts) 
463 call ucb$l_opcnt (Lun,emb$l_dv_opcnt) 
tate call ucb$w_errcnt (lun,emb$w_dv_errcnt) 
3544 if Cemb$w_hd_entry .ne. 98) then 
ore! call ucb$l_media (lun,emb$l_dv_media) 
o768 call Linchk (lun,1) 
0764 
0765 write(lun,75) 
9768 
2444 call dadisks_qio (lun,emb$w_dv_ func) 
078) call irp$w_bcnt (lun,emb$w_dv_bcnt) 
44) call irp$w_boff (lun, emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 
775 call irp$q_iosb (lun,emb$l_dv_iosb1) 
77 endif 
77 
778 return 
779 end 
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8op-18Re 99:85:9)  NedGQASten PERE. cecapapIsKs. FoR: 1°” 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 266) PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 2873 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 218 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 6979 
ENTRY POINTS 
Address Type Name 
0-00000000 DQDISKS 
VARIABLES 
Address Type Name Address Type Name 
1*4 BUS_ADDRESS REGISTER -Q000005A I*4 BYTE CONTROL_REGISTER 
I*4 CONTROL _STATUS_REGISTER m4 'eh t I*4 CY YLIRD DER 
1*4 DATA CHECK AND-OPI_BITS -00000408 I*4 DATA_LATE_AND_OPI BITS 
leg DEVICE FUNCTION” ~posobeie ie DATACATHCREG seein 
L*1 DIAGNOSTIC -Q000005E I*4 DISK_ADDRESS_REGISTER 
I1*4 ECC_PATTERR_REGISTER -00000066 I*4 ECC_POSITION-REGISTER 
I*4 ECC-STATUS_6 -0000001C L*i EMBSB_DV_ 
i BB-BY-Hanc $330 ES] BBE 
L*1 EMBSB_DV_TYPE mtdita ys I*4 EMBSL_DV—C 
I*4 EMBSL_DV_10SB1 ~POORRRIE I*4 EMBSL_DV_I0SB2 
I*4 EMBSL_DV_MEDIA -Q0000046E I1*4 EMBSL_DV_NUMREG 
I*4 EMBSL_DV_OPCNT -00000032 I*4 EMBSL_DV_OWNUIC 
| bike HSH -BV- Aaa $3399900 5 Enati-B el 
¢ 453 Emasucpy-rone 00 af i EMBSUCDVRETS 
A 133 EMBSW_DV_UNIT -000 4 I*2 EMBSW"HD_ENTRY 
I*2 EMBSW_HD ERRSEQ - I*4 FIELD 
4 paw PELE TER - 4 W5C FUNCTION 
@t*l LUN - . ° 1*4 BUTT PU PURPOSE _REGISTER 
at “800004 ¢ fee SectOR COUT. 
I*4 TAG -000 hd: I*4 VECSL_MAPREG 


DQDISKS 


ARRAYS 


—O> 


ee 
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LABELS 


1-00000176 5° 
ae 


Type Name 


CALC_MAP 
roc ree 


Address Type 


ft 
- 

ca 
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Sarno 
COOOL 
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>>>> 
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aon 
ROMO O 
Qo oO 
z= = 
>> > 
zDD » 
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palm) 
on 
Qo 
z= 
>> 
DD 


Address Label 


35 
1-00000233 50° 


LINC 
UcBse. ERTMAX 
VECMAPREG 


EMB 
rrethchs Tiss" 
10 COMMAN Y 
VICSR 

VIDAR 

mer 


Address 


1-00000183 
1-00000183 
1-0000023F 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


CALC_MAP2 
IRP$C_PID 
ORBSL_OWNER 
UCBSL_CHAR 


VIRL agthre 
Ne STATUS BITS 


Bytes 


ou 


—~ 


— 
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MAOAAO VO fSOws 


Address Label 
1-0000018A 15° 


1-000001BA 45° 
1-0000024D0 60' 


Type Name 


I*4 COMPRESS4 
IRP$Q_10SB 


OUTPU 
UCBSL_MEDIA 


oo = NN = On — 


“7 ef LAs 
— TORR —@—Uwewewewliw Swe CO 


1-00000196 
1-000001C6 46° 
1-00000259 


ier] 9:08:07 


Dimensions 


wt 
—_ 
ye) 
we 


Address’ Label 
20° 
65° 


Type Name 


1*4 COMPRESSC 
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Address’ Label 


1-Q00001A1 25° 
1-Q00001F7 47° 
1-00000260 70° 


Type Name 


DHEAD1 
IRP$W_BOFF 
UBA_MAPP ING 
UCBSW_ERRCNT 


Address Label 


1=000001A8 30° 
1-0000021A 48° 
1-00000275 75° 


Type Name 


DQDISKS_Q10 

I*4 LIBSEXTZV 
UCBSB_ERTCNT 
UCBSW_STS 


6 Page 13 
ERF .SRCIJDQDISKS.FOR;1 


FUN 


Nn 7 
SrRSp=1984 13:55:57 — DISKSVMSMASTER: CERF. SRCIDODISKS.FOR:T-o | 


Se 


a3 


Subroutine DQDISKS_Q10 (.un,emb$w_dv_ func) 


3 


0007 
0008 000 
0009 ose 
B91? include ‘src$:qiocommon.for /nolist' f 
315 027 
76 027 
Ae byt $59 
$79 as “0 057 
281 integer*2 emb$w_dv_ func ose 
8 int #4 i (0:1,0:63) 028 
$B¢ nteger qgiocode(0:1,0:63 058 
2 028 
2 028 
2 028 
$ if (qiocode(0,0) .eq. 0) then O56 
¢ qiocode(1,00) = %loc(io$_nop) 056 
$ qiocode(1,02) = Zloc(io$_seek) 


qiocode(1,03) = Zloc(io$_recal) 
qiocode(1,04) = Zloc(io$_drvcilr) 
qiocode(1,08) = X%loc(io$_packack) 
qiocode(1,10) = Zloc(io$_writecheck) 
qiocode(1,11) = Zloc(io$_writepblk) 
qiocode(1,12) = Zloc(io$_readpblk) 
qiocode(1,14) = Zloc(io$_readhead) 
qiocode(1,26) = Zloc(io$_setchar) 
309 qiocode(1,27) = Zloc(io$_sensechar) 
qiocode(1,32) = Zloc(io$_writelblk) 
qiocode(1,33) = Zloc(io$_readlblk) 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,39) = Zloc(io$_sensemode) 
qiocode(1,48) = Zloc(io$_writevblk) 
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Mrmrororrr 
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30 


Bese 
wn _ 
Ww 
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SOSOSOSOSOSOSOSOCOSOSOCOSOSOOSSOSSOOOSOOSOODOOCOOOOOOS OOOO OOOoOOO 
WAWWW 
SSSSSSS 


SOOOSOOCOCOSOSOCOSCOOSOOOSooeoo 


WWAAN ALANA 
Mee a wo ee 
SCOONOUEWN—O 
WWANANNAAAAAN 
eo et 


VIEW —OOONOUS WN 


SOCCSOCOOCOCOOCOOoOooO 


pepofololololololololo!) 


SELESPESS ESS 


fun—0o0@w 


0 
0 
0 
0 
0 
0 
0 


WWAw 
Vin 


qiocode(1,49) 
qiocode(1,50) 
qiocode(1,51) 
qiocode(1,52) 
qiocode(1,53) 
qiocode(1,54) 
qiocode(1,56) 
qiocode(1,57) 


do 10,i = 0,63 
= 33 
i) -eq. 0) then 


qiocode(0,i) 
if (qiocode(1 


ite 98: 98:0 
= Zloc(io$_readvbLlk) 

= Zloc(io$_access) 

= Zloc(ioc$_create) 

= Zloc(io$_deaccess) 

= Zloc(io$_delete) 

= Zloc(io$_modify) 

= Zloc(io$_acpcontrol) 

= Zloc(io$_mount) 


qiocode(1,i) = %loc(qio_string) 
endif 


continue 
endif 


call irp$w_func (Lun,emb$w_dv_f 
1 qiocode(0, LibSextzv(0,6 énbSu._ ry func))) 


return 


end 
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DQDISKS_az0 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
g SLOCAL 
QIOCOMMON 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
AP-0000000. 
-0000044 
-000003C 
ws sis st 34 
-00000385 
-0000026D 
cB 
76 
14 


ae 


S 


ph Py 


~wOUO 
zz 


mewn 


SLUTSsS 


Total Space Allocated 


Bytes 
255 


sit 


2058 


Name 
DQDISKS_Q10 


Name 
EMBSW_DV_FUNC 


_— 


ooooocooooo 
ARARRADAAAAOAA 2 
© 


— 

oO 

A od 
Lata 
art 
mvo 
P tat 

o-# 

2 

“4 

za 

oO 

— 


wr we 


P 
“READCSR 
“READLBLK 
“READPRESET 


“READVBLK 
~READWTHXBUF 
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8 
ib-5e -1984 00:02:07 
~3007 138% 99:93:92 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT 
PIC CON REL LCL SHR NOEXE RD NOWRT 
PIC CON REL LCL NOSHR NOEXE RD WRT 
PIC OVR REL GBL SHR NOEXE RD WRT 
Address Type Name 
-00000200 I*4 | 
-0000054D CHAR IO$_ACCESS 
-000004B3 CHAR IO$_AVAILABLE 
misses ts} CHAR I0$_CREATE 
-00000 23 CHAR IO$_DELETE 
-00000065 CHAR IO$_DRVCLR 
~Q00000A9 CHAR IO$_ERASETAPE 
“ROROp EA CHAR IOS_INITIALIZE 
-Q000003A1 CHAR IO$_MODIFY 
-00000000 CHAR IO$_NOP 
- popoeee CHAR I10$_PACKACK 
“QOO003EF CHAR IO$_RDSTATS 
-00000169 CHAR IO$S_READHEAD 
-00000135F CHAR I0$_READPBLK 
m9 49 5 CHAR I0$_READTRACKD 
~0000045A CHAR 10$_READWTHBUF 
~RORoRe Re CHAR I0$_RECAL 
-QO0001AB CHAR IO$_REREADN 
- 4 CA CHAR IOS_RETCENTER 
-00 9 CHAR I0$_REWINDOFF 
- 4 CHAR I0$_SEEK 
- 9 CHAR I0$_SENSEMODE 
BS CHAR 1O$_SETCLOCK 
-00 DD CHAR 10$_SETMODE 
-00 FA CHAR I0$_SKIPRECO 
- OE CHAR I10$_SPACERECORD 
- 4 CHAR IOS_STARTDATA 
- S F CHAR I0$_STARTSPNDL 
- D CHAR I10$_UNLOAD 
- 1E CHAR IOS_WRITECHECK 
- FF CHAR IOS_WRITECSR 
- A CHAR [O0$_WRITELBLK 
- 14 CHAR I[0$_WRITEOF 
- 1C9 CHAR 10$_ WRITERET 


VAX=11 FORTRAN 


DISKSVMSMAST 


LONG 


A 
ER 


¥3.8-36 Pa 
: CERF .SRCIDQDISKS.FOR;1 


16 


ig istectane gg:4t 
ERSSGBI7E KAR 1B-URITECRAGS EHESHHRY fu [oar tgape 


Al CHAR QI07 STRING. 
ARRAYS 


Address Type Name 
2-00000000 I*4 QIOCODE 


Bytes Dimensions 
512 (0:1, 0:63) 


LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRPSW_FUNC 


Type Name 
I*4 LIBSEXTZV 


, 
AX-11 FORTRAN ¥3.4-5 P 17 | 
AEC SUMSRASTEN TERE, Shc IDODISKS.FORS1°%* | 


ifege 301 FRt 90:05: 0F Pe GRE REN Year Secap0pisKs.ror:1°%” '°| 


t 


COMMAND QUALIFIERS | 

FORTRAN /LIS=LIS$:DQD1SKS/OBJ=0BJ$:DQDISKS MSRC$:DQDISKS 

/CHECK= (NOBOUNDS OVERFLOW, NOUNDERF LOW) 

is STANDARD= (NOSYNTAX NO BURCE. F FORM) 

Ry *7NOG. FLOATING 714 WOPTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
| 
} 
| 


COMPILATION STATISTICS 


Run Time: 10.94 seconds 
Elapsed Time: 5.02 seconds 
Page Faults: 

Dynamic Memory: 248 pages 


001 
a0 
00' 
00° 
00° 
00 
00’ 
00' 
00' 
00° 
00, 
00, 
00, 
00; 
00, 
00, 
00, 
00, 
00, 
86! 
00: 
00: 


ais 88 28. 


#6 84 88 8. 


S8ssssss 


S$$S8S3SSS 


RrLSosses 


PMENT CORPORATION 
.AND PROPRIETARY 


AH-BT13A-SE 


0147 


VAX/VMS V4.0 


